home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programmierung
/
Power-Programmierung (Tewi)(1994).iso
/
magazine
/
progjour
/
1987
/
05
/
equates.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1987-08-07
|
896b
|
27 lines
{ A short program used to generate values used by DEMO.PAS
by John J. Newlin, Page 28, Volume 5.5, Programmer's Journal
EQUATES.PAS
Copyright 1987 by John J. Newlin, 4060-228 Rosenda Court, San
Diego, CA 92122
}
(* Program to derive values to be coded into
KERNEL.ASM as equates. *)
{$I demo.var}
function hex(n : integer) : str4;
var h : array[0..$F] of char;
begin
h := '0123456789ABCDEF';
hex := h[hi(n) div 16]+h[hi(n) mod 16]+h[lo(n) div 16]+h[lo(n) mod 16];
end;
begin
writeln('activate equ ',hex(ofs(activate)),'H');
writeln('demo_main equ ',hex(ofs(demo_main)),'H');
writeln('emm_handle equ ',hex(ofs(emm_handle)),'H');
writeln('loaded_in_emm equ ',hex(ofs(loaded_in_emm)),'H');
end.